home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 2 / Gold Medal Software Volume 2 (Gold Medal) (1994).iso / bbsutils / sappha.arj / INFO.BAT < prev    next >
DOS Batch File  |  1994-01-01  |  1KB  |  44 lines
  1.     @ECHO OFF
  2.     ECHO OFF
  3.     IF NOT (%1) == (POP) GOTO MAIN
  4.     SHIFT
  5.     SHIFT
  6.     GOTO %0
  7.  
  8.  
  9. :MAIN
  10.     GO-MENU INFO.MNU 001 SAPPHIRE.MSV
  11.     IF ERRORLEVEL 10 GOTO QUIT
  12.     IF ERRORLEVEL  8 VIEW VENDOR.DOC   PSH INFO MAIN %1
  13.     IF ERRORLEVEL  7 VIEW ORDER.FRM    PSH INFO MAIN %1
  14.     IF ERRORLEVEL  6 VIEW OPTIONS.DOC  PSH INFO MAIN %1
  15.     IF ERRORLEVEL  4 GOTO SEARCH
  16.     IF ERRORLEVEL  3 GOTO FILES
  17.     IF ERRORLEVEL  1 GOTO MANL
  18.     
  19. :FILES
  20.     SAPPFIVE FNAMES.FIV
  21.     GOTO MAIN
  22. :SEARCH
  23.     SEARCH
  24.     GOTO MAIN
  25.  
  26.  
  27. :MANL
  28.     GO-MENU MANUAL.MNU 003 SAPPHIRE.MSV
  29.     IF ERRORLEVEL 18 GOTO MAIN
  30.     IF ERRORLEVEL 16 VIEW SAPPHTS.DOC  PSH INFO MANL %1
  31.     IF ERRORLEVEL 11 VIEW MISC.DOC     PSH INFO MANL %1
  32.     IF ERRORLEVEL 10 VIEW EXTERN.DOC   PSH INFO MANL %1
  33.     IF ERRORLEVEL  9 VIEW STOCK.DOC    PSH INFO MANL %1
  34.     IF ERRORLEVEL  8 VIEW CUSTOM.DOC   PSH INFO MANL %1
  35.     IF ERRORLEVEL  6 VIEW BASIC.DOC    PSH INFO MANL %1
  36.     IF ERRORLEVEL  4 VIEW INSTALL.DOC  PSH INFO MANL %1
  37.     IF ERRORLEVEL  3 VIEW THISVER.DOC  PSH INFO MANL %1
  38.     IF ERRORLEVEL  2 VIEW FEATURES.DOC PSH INFO MANL %1
  39.     IF ERRORLEVEL  1 VIEW NOTICES.DOC  PSH INFO MANL %1
  40.  
  41.  
  42. :QUIT
  43.     IF (%1) == (X) SYSOP X
  44.